
clear


use propaganda_protest_repdata.dta


***** Figure 1 *****

eststo r1:  reg regimeself_scale video democracy book space, robust 

eststo r7:  reg regimeself_scale treated, robust 

eststo r2:  reg regimeself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo r8:  reg regimeself_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo r3:  reg regimeother_scale  video democracy book space, robust 

eststo r9:  reg regimeother_scale  treated, robust 

eststo r4:  reg regimeother_scale  video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo r10:  reg regimeother_scale  treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo r5:  reg regime_os video democracy book space, robust 

eststo r11:  reg regime_os treated, robust 

eststo r6:  reg regime_os video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo r12:  reg regime_os treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

coefplot(r1, label(No covariates) msymbol(D)) (r2, label(With covariates)  msymbol(O)) (r7, label(No covariates) msymbol(D)) (r8, label(With covariates)  msymbol(O)), bylabel(Self Regime Support)  || ///
 (r3) (r4) (r9) (r10), bylabel(Other Regime Support) ||  ///
  (r5) (r6) (r11) (r12), bylabel(Other-Self Difference) ||,  ///
drop(_cons female age education income ccpmember urban life pinterest pride prowest polity) ///
xline(0, lpattern(dash) lcolor(black) lwidth(thin))  byopts(compact rows(1)) ///
legend(order(2 "No covariates" 4 "With covariates")) 

eststo clear


***** Figure 2 *****

eststo s1: reg stabilityself_scale video democracy book space, robust 

eststo s7: reg stabilityself_scale treated, robust 

eststo s2: reg stabilityself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo s8: reg stabilityself_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo s3: reg stabilityother_scale video democracy book space, robust 

eststo s9: reg stabilityother_scale treated, robust 

eststo s4: reg stabilityother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo s10: reg stabilityother_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo s5: reg stability_os video democracy book space, robust 

eststo s11: reg stability_os treated, robust 

eststo s6: reg stability_os video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo s12: reg stability_os treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

coefplot(s1, label(No covariates) msymbol(D)) (s2, label(With covariates)  msymbol(O)) (s7, label(No covariates) msymbol(D)) (s8, label(With covariates)  msymbol(O)), bylabel(Self Regime Stability)  || ///
 (s3) (s4) (s9) (s10), bylabel(Other Regime Stability) ||  ///
 (s5) (s6) (s11) (s12), bylabel(Other-Self Difference) ||,  ///
drop(_cons female age education income ccpmember urban life pinterest pride prowest polity) ///
xline(0, lpattern(dash) lcolor(black) lwidth(thin))  byopts(compact rows(1)) ///
legend(order(2 "No covariates" 4 "With covariates")) 

eststo clear


***** Figure 3 *****

eststo p1: reg protestself_scale video democracy book space, robust 

eststo p7: reg protestself_scale treated, robust 

eststo p2: reg protestself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo p8: reg protestself_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo p3: reg protestother_scale video democracy book space, robust 

eststo p9: reg protestother_scale treated, robust 

eststo p4: reg protestother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo p10: reg protestother_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo p5: reg protest_os video democracy book space, robust 

eststo p11: reg protest_os treated, robust 

eststo p6: reg protest_os video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

eststo p12: reg protest_os treated  female age education income ccpmember urban life pinterest pride prowest polity, robust 

coefplot(p1, label(No covariates) msymbol(D)) (p2, label(With covariates)  msymbol(O)) (p7, label(No covariates) msymbol(D)) (p8, label(With covariates)  msymbol(O)), bylabel(Self Protest Willingness)  || ///
 (p3) (p4) (p9) (p10), bylabel(Other Protest Willingness) ||  ///
  (p5) (p6) (p11) (p12), bylabel(Other-Self Difference) ||,  ///
drop(_cons female age education income ccpmember urban life pinterest pride prowest polity) ///
xline(0, lpattern(dash) lcolor(black) lwidth(thin))  byopts(compact rows(1)) ///
legend(order(2 "No covariates" 4 "With covariates")) 

eststo clear


***** Table 2 *****

sureg (regimeother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity)(regimeself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity)

lincom _b[regimeother_scale:video] - _b[regimeself_scale:video]
lincom _b[regimeother_scale:democracy] - _b[regimeself_scale:democracy]
lincom _b[regimeother_scale:book] - _b[regimeself_scale:book]
lincom _b[regimeother_scale:space] - _b[regimeself_scale:space]

sureg (regimeother_scale treated female age education income ccpmember urban life pinterest pride prowest polity)(regimeself_scale treated female age education income ccpmember urban life pinterest pride prowest polity)

lincom _b[regimeother_scale:treated] - _b[regimeself_scale:treated]

***
sureg (stabilityother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity)(stabilityself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity)

lincom _b[stabilityother_scale:video] - _b[stabilityself_scale:video]
lincom _b[stabilityother_scale:democracy] - _b[stabilityself_scale:democracy]
lincom _b[stabilityother_scale:book] - _b[stabilityself_scale:book]
lincom _b[stabilityother_scale:space] - _b[stabilityself_scale:space]

sureg (stabilityother_scale treated female age education income ccpmember urban life pinterest pride prowest polity)(stabilityself_scale treated female age education income ccpmember urban life pinterest pride prowest polity)

lincom _b[stabilityother_scale:treated] - _b[stabilityself_scale:treated]


***** Table 3 *****

sureg (protestother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity)(protestself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity)

lincom _b[protestother_scale:video] - _b[protestself_scale:video]
lincom _b[protestother_scale:democracy] - _b[protestself_scale:democracy]
lincom _b[protestother_scale:book] - _b[protestself_scale:book]
lincom _b[protestother_scale:space] - _b[protestself_scale:space]

sureg (protestother_scale treated female age education income ccpmember urban life pinterest pride prowest polity)(protestself_scale treated female age education income ccpmember urban life pinterest pride prowest polity)

lincom _b[protestother_scale:treated] - _b[protestself_scale:treated]



***** See Part 2 for codes for Table 4, Table 5, and Figure 5 *****


***** Table S2 *****

reg regimeself_scale video democracy book space, robust 

reg regimeself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg regimeother_scale  video democracy book space, robust 

reg regimeother_scale  video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg regime_os video democracy book space, robust 

reg regime_os video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S3 *****


reg regimeself_scale treated, robust 

reg regimeself_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg regimeother_scale  treated, robust 

reg regimeother_scale  treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg regime_os treated, robust 

reg regime_os treated female age education income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S4 *****

reg stabilityself_scale video democracy book space, robust 

reg stabilityself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityother_scale video democracy book space, robust 

reg stabilityother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg stability_os video democracy book space, robust 

reg stability_os video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S5 *****

reg stabilityself_scale treated, robust 

reg stabilityself_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityother_scale treated, robust 

reg stabilityother_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg stability_os treated, robust 

reg stability_os treated female age education income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S6 *****

reg protestself_scale video democracy book space, robust 

reg protestself_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg protestother_scale video democracy book space, robust 

reg protestother_scale video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg protest_os video democracy book space, robust 

reg protest_os video democracy book space female age education income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S7 *****

reg protestself_scale treated, robust 

reg protestself_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg protestother_scale treated, robust 

reg protestother_scale treated female age education income ccpmember urban life pinterest pride prowest polity, robust 

reg protest_os treated, robust 

reg protest_os treated  female age education income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S8 *****

reg regimeself_scale video democracy book space video_highedu democracy_highedu book_highedu space_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg regimeother_scale  video democracy book space video_highedu democracy_highedu book_highedu space_highedu highedu  female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityself_scale   video democracy book space video_highedu democracy_highedu book_highedu space_highedu highedu    female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityother_scale  video democracy book space video_highedu democracy_highedu book_highedu space_highedu highedu    female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg protestself_scale  video democracy book space video_highedu democracy_highedu book_highedu space_highedu highedu  female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg protestother_scale   video democracy book space video_highedu democracy_highedu book_highedu space_highedu highedu    female age  income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S9 *****

reg regimeself_scale treated treated_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg regimeother_scale  treated treated_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityself_scale  treated treated_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityother_scale treated treated_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg protestself_scale  treated treated_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 

reg protestother_scale treated treated_highedu highedu female age  income ccpmember urban life pinterest pride prowest polity, robust 


***** Table S10 *****

reg regimeself_scale video democracy book space video_highincome democracy_highincome book_highincome space_highincome highincome female age education ccpmember urban life pinterest pride prowest polity, robust 

reg regimeother_scale  video democracy book space  video_highincome democracy_highincome book_highincome space_highincome highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityself_scale   video democracy book space  video_highincome democracy_highincome book_highincome space_highincome highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityother_scale  video democracy book space  video_highincome democracy_highincome book_highincome space_highincome highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg protestself_scale  video democracy book space  video_highincome democracy_highincome book_highincome space_highincome highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg protestother_scale   video democracy book space  video_highincome democracy_highincome book_highincome space_highincome highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 


***** Table S11 *****

reg regimeself_scale  treated treated_highincome  highincome female age education ccpmember urban life pinterest pride prowest polity, robust 

reg regimeother_scale   treated treated_highincome  highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityself_scale   treated treated_highincome  highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg stabilityother_scale  treated treated_highincome highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg protestself_scale  treated treated_highincome  highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 

reg protestother_scale  treated treated_highincome  highincome female age education  ccpmember urban life pinterest pride prowest polity, robust 





clear
